home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / tos_updt / fmcity / palcom / esc / escdosv.def next >
Text File  |  1995-04-04  |  1KB  |  41 lines
  1. ESCDEF    ＤＯＳ／Ｖ
  2. ;----------------------------------------------------------------------
  3. ;
  4. ;    ＥＳＣファンクション定義(ＤＯＳ/Ｖ用)
  5. ;    COPYRIGHT (C) 1993 FUJITSU/HORIANT
  6. ;
  7. ;----------------------------------------------------------------------
  8. ;
  9. ;    ESCシーケンス定義
  10. ;
  11. ;----------------------------------------------------------------------
  12. \e[\d\;\d\{Hf\}    LOCATE %2,%1
  13. \e[A    QLOCATE $X,$Y : LOCATE %X,%Y-1
  14. \e[B    QLOCATE $X,$Y : LOCATE %X,%Y+1
  15. \e[C    QLOCATE $X,$Y : LOCATE %X+1,%Y
  16. \e[D    QLOCATE $X,$Y : LOCATE %X-1,%Y
  17. \e[0A    QLOCATE $X,$Y : LOCATE %X,%Y-1
  18. \e[0B    QLOCATE $X,$Y : LOCATE %X,%Y+1
  19. \e[0C    QLOCATE $X,$Y : LOCATE %X+1,%Y
  20. \e[0D    QLOCATE $X,$Y : LOCATE %X-1,%Y
  21. \e[\dA    QLOCATE $X,$Y : LOCATE %X,%Y-%1
  22. \e[\dB    QLOCATE $X,$Y : LOCATE %X,%Y+%1
  23. \e[\dC    QLOCATE $X,$Y : LOCATE %X+%1,%Y
  24. \e[\dD    QLOCATE $X,$Y : LOCATE %X-%1,%Y
  25. \e[6n    NOP
  26. \e[s    QLOCATE $H,$V
  27. \e[u    LOCATE  %H,%V
  28. \e[2J    CLS
  29. \e[K    QLOCATE $A,$B : QWIDTH $C,$D : CLSBOX %A,%B,%C,%B
  30. \e[=\D\{hl\}    NOP
  31. \e[m        COLOR 7
  32. \e[\s\[\D\;\]m    COLOR 7 : ANSICOLOR %1
  33. ;----------------------------------------------------------------------
  34. ;
  35. ;    １バイトコード定義(優先度を下げないと一致する可能性大)
  36. ;
  37. ;----------------------------------------------------------------------
  38. \x07        BEEP
  39. \i\eINIT_DOSV1    LET $H,1 : LET $V,1
  40. \i\eINIT_DOSV2    QLOCATE $A,$B : QWIDTH $C,$D : CLSBOX 1,%B+1,%C,%D : CLSBOX %A,%B,%C,%B
  41.